約 4,406,362 件
https://w.atwiki.jp/oboegakiwiki/pages/15.html
xyzzy wiki http //xyzzy.s53.xrea.com/wiki/index.php?FrontPage まずは環境変数を設定 ユーザ環境変数 変数名 XYZZYHOME 変数値 C \Program Files\xyzzyとか オススメ色設定 usr/ログイン名/プラットフォーム/xyzzy.ini を変更する。 [Colors] textColor=#d0d0d0 backColor=#3c2800 ctlColor=#8080 selectionTextColor=#ffffff selectionBackColor=#820000 kwdColor1=#98fb98 kwdColor2=#82ddee kwdColor3=#ffff00 stringColor=#7aa0ff commentColor=#45ff tagColor=#face87 cursorColor=#800080 caretColor=#e8cc80 imeCaretColor=#d4eefc linenum=#604000 reverse=#fcf8 unselectedModeLineFg=#13000000 unselectedModeLineBg=#10e8e8e8 modeLineFg=#d0d0d0 modeLineBg=#13000000 fg1=#4e4f2f 実はデフォでタブ化できます 表示→ツールバー→バッファでOK セッションファイルの関連付け フォルダオプションから登録 新しいアクションで、 アクション open アクションを実行するアプリケーション "xyzzycli.exeのパス" -S "%1" と設定。-Sを-sにすると、セッションの変更を自動で保存するモードになる。 その他の起動オプションについては、xyzzyのフォルダ内のhtmlフォルダにある、00README.htmlを参照 キーボードマクロでインデント(JavaTinyConsoleを使うとCtrl+Alt+qがうまくいかないから→※嘘でした。「前括弧」の「前」にカーソル置いてCtrl+Alt+qなのを間違えて「後ろ」でやってただけでした) キーボードマクロに「TAB ↓」で登録 ツールから読み込んでから、 「Esc 0 Ctrl+x e」 で、ファイルの最後まで繰り返します。 abbrevの設定 静的補完機能です。 ①「Alt-x abbrev-mode」 ②登録したい部分の頭にカーソルをあわせ「Ctrl+Space」 ③登録したい部分の最後にカーソルをあわせ「Esc 0 Ctrl-x Ctrl-a」 ④略称入力 ⑤「Alt-x write-abbrev-file」で保存。ホームの「.abbrev_defs」に保存されます。環境変数の設定をちゃんとしておくこと ⑥略称を入力してスペースを押すと補完されます。 ⑦モードの出入りはどちらも①のコマンド ⑧モードに入っていなくても「Ctrl-x 」で補完されます。キーバインドを登録しておくのもいいかも 各種カスタマイズ カスタマイズは、.xyzzyかsiteinit.lに記述することで行う。 siteinit.lはsite_lispフォルダ内に作成。記述後、バイトコンパイルを行うこと。こっちを推奨。 .xyzzyは、xyzzy.exeの位置に作成。リネームでは作れないので、メモ帳などから名前を付けて保存する。バイトコンパイル不要。再起動でok。 バイトコンパイル xyzzyを起動し、 alt-x byte-compile-file RETERN (lispﾃﾞｨﾚｸﾄﾘのﾊﾟｽ)/～.l RETERN xyzzy.wxpを削除して再起動 ※コマンド入力はRETERNでかなり補完してくれます インデントサイズの変更(Cプログラミング) c-mode.lを書き換えて、バイトコンパイルする 以下、数値は順にK R、BSD、GNU(defult) c-indent-level 5 8 2 c-continued-statement-offset 5 8 2 c-argdecl-indent 0 8 5 c-brace-offset -5 -8 0 c-brace-imaginary-offset 0 0 0 c-label-offset -5 -8 -2 インデント方法 → { に合わせて Ctrl + Alt + q siteinit.lの各種設定(要バイトコンパイル) C-z(Undo)，C-v(貼り付け)にキーバインドを変更する。 C-c及びC-xは通常はEmacsと同様なprefixキーで, 範囲指定している場合のみコピーと切り取りに変更 (load-library "winkey") キーバインドをWindowsとほぼ完全に同じに ×(load-library "Gates") バックアップファイルの保存位置を変更(詳細はbackup.l) (require "backup") (setq *backup-directory* "backup") インクリメントサーチ(×Ctrl+fを割り当てCtrl+sはセーブのままに) (require "isearch") ×(global-set-key #\c-f # isearch-forward) ×(global-set-key #\c-s # save-buffer-dialog) 関数一覧表示のキーバインドをCtrl+7に (global-set-key #\c-7 # list-function) Ctrl+jで単語の補完、ダイナミックアブリビエイション("expand"を"popup"にすると、ポップアップ型になる) (require "dabbrev") (global-set-key #\C-j dabbrev-expand) (setq *popup-completion-list-default* always) ｃモードで「///」以降普通のコメントと色を変える(オススメ色設定のfg1 目立たない色) (add-hook *c-mode-hook* (lambda () (make-local-variable regexp-keyword-list) (setq regexp-keyword-list (compile-regexp-keyword-list (("///.*$" nil ( color 1 0))))))) テキストモードで「///」「##」以降コメントの色に変える (add-hook *text-mode-hook* (lambda () (make-local-variable regexp-keyword-list) (setq regexp-keyword-list (compile-regexp-keyword-list (("///.*$" nil comment) ("##.*$" nil comment)))))) マウスのホイールスクロール時キャレット位置を保存 (defvar *mouse-wheel-scroll-origin* nil) (defun mouse-wheel-scroll-back-to-origin () (goto-char *mouse-wheel-scroll-origin*) (setq *mouse-wheel-scroll-origin* nil) (delete-hook *pre-command-hook* mouse-wheel-scroll-back-to-origin)) (defun mouse-wheel-scroll-keeping-position (window n lines) (unless lines (setq lines (window-lines window))) (with-selected-window (set-window window) (let* ((pos (or *mouse-wheel-scroll-origin* (point)))) (scroll-window (* n lines)) (if (and (pos-visible-in-window-p pos) (save-excursion (forward-line (1+ *scroll-margin*)) (pos-visible-in-window-p (point))) (save-excursion (backward-line (1+ *scroll-margin*)) (pos-visible-in-window-p (point)))) (goto-char pos) (unless *mouse-wheel-scroll-origin* (setq *mouse-wheel-scroll-origin* pos) (add-hook *pre-command-hook* mouse-wheel-scroll-back-to-origin)))))) (setq mouse-wheel-handler # mouse-wheel-scroll-keeping-position) F8とF9で，バッファ切り替え (setq *next-buffer-in-tab-order* t) (setq *previous-buffer-in-tab-order* t) (global-set-key #\F8 previous-buffer) (global-set-key #\F9 next-buffer) インデント・オフセット関係(上にc-mode.lを書き換えるやり方があるが、多分後にやった方が優先) (setq c++-indent-level 4) (setq c++-continued-statement-offset 4) (setq c++-argdecl-indent 5) (setq c++-brace-offset -4) (setq c++-brace-imaginary-offset 0) (setq c++-label-offset -4) (setq c++-comment-indent 0) (setq c-indent-level 4) (setq c-continued-statement-offset 4) (setq c-argdecl-indent 5) (setq c-brace-offset -4) (setq c-brace-imaginary-offset 0) (setq c-label-offset -4) (setq c-comment-indent 0) (setq java-indent-level 4) (setq java-continued-statement-offset 4) (setq java-argdecl-indent 5) (setq java-brace-offset -4) (setq java-brace-imaginary-offset 0) (setq java-label-offset -4) (setq java-comment-indent 0) JavaTinyConsole対策 ①jtc-complete.lを書き換える (define-key ed *java-mode-map* #\TAB jtc-do-completion) ↓ (define-key ed *java-mode-map* #\c-U jtc-do-completion) ②ポップアップの選択をCtrl+Uで行う (setq *std-control-down-char* #\c-U) これで、Ctrl+Uで補完＋選択、TABで決定となる。 こうしないとTABインデントの便利さを発揮できない。 .xyzzyの各種設定(バイトコンパイル不要) ホームディレクトリに.xyzzyというファイルをつくっときましょう abbrevの補完ファイルの自動読み込み(siteinit.lだと駄目。.xyzzyに書くべし) (setq *abbrev-file-name* "~/.abbrev_defs") (quietly-read-abbrev-file *abbrev-file-name*) (quietly-read-abbrev-file) (read-abbrev-file)
https://w.atwiki.jp/knenet/pages/18.html
xyzzy 亀井氏による、emacs風エディタ。 説明はxyzzywikiに詳しい。 ちょっとした関数 xyzzy上でlispを書くのに便利な関数をいくつか載せておく。 (eval-when ( compile-toplevel load-toplevel execute) (in-package "lisp");●●lisp (export (series group)) ;macro-function (defun group (source n) ; cite `On Lisp by Paul Graham (if (zerop n) (error "zero length")) (labels ((rec (source acc) (let ((rest (nthcdr n source))) (if (consp rest) (rec rest (cons (subseq source 0 n) acc)) (nreverse (cons source acc)))))) (if source (rec source nil) nil))) ;macro (defmacro series (num func rest args) (if (listp func) `(progn ,@(mapcar # (lambda (x) `(,@func ,@x)) (group args num))) `(progn ,@(mapcar # (lambda (x) `(,func ,@x)) (group args num))))) (in-package "user"));●●user ; (group (make-sequence list 10 initial-element 0) 2) ; = ((0 0) (0 0) (0 0) (0 0) (0 0)) ; (macroexpand-1 (series 2 fn 1 2 3 4 5 6)) ; = (progn (fn 1 2) (fn 3 4) (fn 5 6)) これは、リストの要素をグループにする関数と、それを用いたマクロである。 設定ファイルを書くのに便利なので、siteinit.lの始めの方に書いておくと良い。 (defun lisp-keyword () ; cite unknown (make-local-variable keyword-hash-table) (setf keyword-hash-table (load-keyword-file "lisp")) (make-local-variable regexp-keyword-list) (setf regexp-keyword-list (compile-regexp-keyword-list (("(" t ( color 14)) (")" t ( color 14)))))) (series 2 add-hook *post-startup-hook* # (lambda () (save-excursion (set-buffer (find-buffer "*scratch*")) (insert-file-contents "~/scratch" t) (set-buffer-file-name "~/scratch" (find-buffer "*scratch*")) (setq need-not-save nil) (set-buffer-colors #(0 #xf2e2e2)))) *lisp-mode-hook* lisp-keyword *lisp-interaction-mode-hook* lisp-keyword) lisp-keywordは、lispのキーワードを色づけする関数である。 これは、lisp-modeとlisp-interaction-modeにフックしておく。 また、*scratch*はもともとファイルがないので、普通にファイルを開いた状態と同じにしておく。 (series 2 global-set-key #\M-F4 kill-xyzzy #\F5 # (lambda() (interactive) (insert (format-date-string "%Y-%m-%d %H %M"))) #\F1 # (lambda () (interactive) (find-file (merge-pathnames ".xyzzy" (si system-root)))) #\C-Delete # (lambda () (interactive) (if (equalp "*scratch*" (buffer-name (selected-buffer))) (message "*scratch* isn t deleted.") (kill-selected-buffer)))) キー設定の例。一番上は、Alt+F4でxyzzyを終了させるためのもの。windows準拠。 F5はメモ帳みたいな、日付を入れる機能。F1は.xyzzyを開く。 C-Deleteでは、*scratch*を消さないようにしておく。 (defun strip-sexp () (interactive "*") (let ((start (point)) (to (and (forward-sexp) (point))) (from (and (backward-sexp) (point)))) (if (eq start from) (if (scan-buffer "[` ,@]" regexp t limit (1+ from)) (delete-char 1) (if (scan-buffer "[ \t\n]+" regexp t tail t limit to) (let (n) (scan-buffer "(" no-dup t reverse t limit (1+ from)) (delete-backward-char (setq n (- (point) start))) (goto-char (- to n)) (delete-backward-char 1)) (delete-char (- to start)))) (delete-char (- start from))) (goto-char (min start from)))) (defun wear-paren () (interactive "*") (forward-sexp) (backward-sexp)(insert "(") (forward-sexp)(insert ")") (backward-sexp)(forward-char)) ;(list 1 2 3) ;^strip-sexp ;= 1 2 3 ;(list 1 2 3) ;^wear-paren ;= ((list 1 2 3)) この２つはマクロなどを編集するのに使うコマンド。上が括弧を一段階外すもので、下が一段階増やすもの。 whenやifなど、階層が深くなると対応をしたものを付けたり外したりするのが面倒なので。 下のは、S式でなくても括弧を付けられるので、他の場面でも使えたりする。
https://w.atwiki.jp/syohaku/pages/10.html
;(setq *error-output* (make-buffer-stream (create-new-buffer "*Stack Trace*"))) ;(setq si *trace-on-error* t) (toggle-trace-on-error) ;(setq *hyperspec-root* "C \\Program Files\\xyzzy\\HyperSpec") (add-hook *lisp-mode-hook* # (lambda () (make-local-variable keyword-hash-table) (setf keyword-hash-table (load-keyword-file "lisp")) (make-local-variable regexp-keyword-list) (setf regexp-keyword-list (compile-regexp-keyword-list (("(" t ( color 14)) (")" t ( color 14))))))) (add-hook *lisp-interaction-mode-hook* # (lambda () (make-local-variable keyword-hash-table) (setf keyword-hash-table (load-keyword-file "lisp")) (make-local-variable regexp-keyword-list) ; (with-output-to-temp-buffer ("*ResultLisp*" 2));by nagata ; (switch-to-buffer-other-window (window-buffer (selected-window)) nil) ;nagata (setf regexp-keyword-list (compile-regexp-keyword-list (("(" t ( color 14)) (")" t ( color 14))))))) ;以下のコードはlispキーワード ;http //hie.s64.xrea.com/xyzzy/note/major_mode.htmlをコピぺ ;コードアシストは"esc tab" と "c-."の２つに割り当てている。 (in-package "editor") (defvar *lisp-keyword-hash-table* nil) (defun use-lisp-keyword () "キーワード色付け" (if (null *lisp-keyword-hash-table*) (setq *lisp-keyword-hash-table* (load-keyword-file "lisp"))) (when *lisp-keyword-hash-table* (make-local-variable keyword-hash-table) (setq keyword-hash-table *lisp-keyword-hash-table*))) (add-hook *lisp-mode-hook* # (lambda () (use-lisp-keyword) (define-key *lisp-mode-map* #\C-. lisp-complete-symbol))) (add-hook *lisp-interaction-mode-hook* # (lambda () (use-lisp-keyword) (define-key *lisp-interaction-mode-map* #\C-. lisp-complete-symbol))) (in-package "user") ;TAB で indent と同時に補完 ;http //hie.s64.xrea.com/xyzzy/note/edit.html#lisp-indent-line-and-complete-symboljをコピペ (defun lisp-indent-line-and-complete-symbol () (interactive) (lisp-indent-line) (if (looking-at "\\_ ") (lisp-complete-symbol))) (define-key ed *lisp-mode-map* #\TAB lisp-indent-line-and-complete-symbol) (define-key ed *lisp-interaction-mode-map* #\TAB lisp-indent-line-and-complete-symbol) ;NetInstaller用設定 (require "ni/setup") ;; 自動設定を利用する (ni-autoload) ;; PROXYを通す場合 ;(setq ni *http-proxy-host* "proxy.host") ; PROXY のホスト ;(setq ni *http-proxy-port* 8080) ; PROXY のポート ;(load-library "Gates") ;Ruby用設定 (load-library "ruby-mode") (push ("\\.rb$" . ruby-mode) *auto-mode-alist*) ; インデント量を変える。nilの時はタブを挿入 (setq *ruby-indent-column* 3) ;以下はhttp //plaza.umin.ac.jp/~takeshou/xyzzy/#sec08からのtips (require "isearch") (set-default-directory "~") (require "dabbrev") ;バックアップディレクトリ設定 (require "backup") (setq *backup-directory* "C /xyzzy/backup") (setq *hierarchic-backup-directory* t) ; C-c bでカレントバッファをバイトコンパイルし、ダンプファイルを削除します。 (defun compile-and-delete-dump-file () (interactive) (and (find-buffer "siteinit.l") (eval-buffer "siteinit.l")) (byte-compile-file (concat (si system-root) "site-lisp/siteinit.l")) (let ((dumpfile "xyzzy.wxp")) ; (concat (si system-root) "xyzzy." ; (case (os-platform) ; (whistler "wxp") ; (windows-2000 "w2k") ; (windows-nt "wnt") ; (windows-me "wme") ; (windows-98 "w98") ; (windows-95 "w95") ; (win32s "32s") ; (t "nt"))))) (and (file-exist-p dumpfile) (delete-file dumpfile)))) (defun other-window-backward ( optional n) "Select the previous window." (interactive "p") (other-window (- (if n n 1)))) ;lisp-interaction-mode (push ("\\.xyzzy$" . lisp-interaction-mode) *auto-mode-alist*) (push ("\\.l$" . lisp-interaction-mode) *auto-mode-alist*) ;lisp-reference (require "info-modoki-mode") (define-key ed *lisp-mode-map* #\F1 imm-refer-selection) (define-key ed *lisp-interaction-mode-map* #\F1 imm-refer-selection) (global-set-key (#\C-c #\b) compile-and-delete-dump-file) (global-set-key #\C-o find-file) (global-set-key (#\C-x #\C-o) other-window-backward) ;;NetInstallerの公開されているサイトをそうどりしてくるサイト (defun ni add-site-from-wiki () (interactive) (let ((s (ni http-get-url "http //xyzzy.s53.xrea.com/wiki/index.php?cmd=source page=NetInstaller%2F%C7%DB%C9%DB%A5%D1%A5%C3%A5%B1%A1%BC%A5%B8%B0%EC%CD%F7"))) (ni load-site-data) (mapcar (lambda (x) (ni site-add x)) (set-difference (remove-if null (mapcar (lambda (i) (and (string-match "^ [^|]+|\\(http .*\\)$" i) (apply # concat (mapcar (lambda (x) (let ((tmp (split-string x #\;))) (if (equal (car tmp) "amp") (apply # concat " " (cdr tmp)) (car tmp)))) (split-string (match-string 1) #\ ))))) (let (out) (while (ignore-errors (push (read-line s) out) t)) (nreverse out)))) (mapcar (lambda (x) (cdr (assoc "src" x test equal))) ni *site-data*) test equal))) t) ;;ここがキーバインド (define-key ni *site-map* #\N ni add-site-from-wiki) ;;;www-mode (autoload www "www/www" t) (autoload www-open-url "www/www" t) (autoload www-open-local-file "www/www" t) (autoload www-open-current-buffer "www/www" t)
https://w.atwiki.jp/juria/pages/53.html
xyzzy + rss-mode.l準備 設定 xyzzy + rss-mode.l MyWiki より転記・加筆[2007-01-31][2006-01-30] xyzzy 用 RSS モード [2007-01-31]現在の最新バージョンは、rss-0.0.3.0beta1 [2006/09/02] です。 初稿（rss-0.0.2.0beta4 当時）以降に追加された機能 エントリーをクリップ エントリ閲覧履歴 未読／既読の切り替え キャッシュを保存する Hyper Estraier で全文検索（hyper-estraier.l 同梱） など Junk Scripts ３年半ぶりにうちの rss-mode をバージョンアップした。 ”ちょっとしたツール”から”かなりイケる”ものになってますね。 準備 junk-library.l 配布アーカイブ内の junk フォルダごと ~/site-lisp/ に置く。 xml-parser-modoki.l xml-parser-modoki.l を~/site-lisp/ に置く。 いまいたけをさんの browser.dll拡張版 Browser.dll を ~/ に置く。 browserex.l xyzzy + html+-mode.l + Browserex 参照 www-mode （任意） hecmd （任意、rss-0.0.3.0beta1 以降 Hyper Estraier 使用時） hecmd フォルダごと ~/site-lisp/ に置く。 それぞれ、導入後 xyzzy を再起動する。 設定 １．配布アーカイブ内の rss フォルダごと ~/site-lisp/ に置く。 ２．必要ならバイトコンパイル M-x load-library[Enter] Load library rss/makefile[Enter] M-x rss-make-clean[Enter] M-x rss-make[Enter] ３．~/.xyzzy か ~/site-lisp/siteinit.l に (autoload rss "rss/main" t) (autoload rss-toggle "rss/main" t) ; 必要なら呼び出すキーバインドを設定 (global-set-key #\S-F3 rss-toggle) (set-function-bar-label #\S-F3 "rss") ４．サンプルの config.l を ~/.rss/ にコピー、必要に応じて編集 ;;; www-modeで開く (require "rss/open-www") 初期状態（コメント化）では browserex で表示する。 ;;; hyper-estraier で検索 (require "rss/hyper-estraier") その他、キャッシュや未読検索時の設定など バージョンアップ時の ~/.rss/config.l の上書きに注意 ５．再起動 ６．"a" でグループやURLを追加 -
https://w.atwiki.jp/hgsk/pages/20.html
xyzzy 概要 Emacsライク高機能エディタ Common Lispが使える 設定タブに萌える 機能 辞書 カスタマイズ １．空の設定ファイルを設置 ┬xyzzy.exe ├site-lisp │└siteinit.l（設定ファイル） ├xyzzy.wxp(ダンプファイル) └.xyzzy ２．環境変数を登録 変数名：XYZZYHOME 変数値：.xyzzyのあるフォルダまでのPATH ３．設定ファイルを編集 設定ファイル siteinit.l（優先順位：低） Lispコードをバイトコンパイルして評価する 使い方 変更頻度の低い拡張 評価方法 M-x byte-compile-fileでsiteinit.lを指定 注意 M-x byte-compile-fileでsiteinit.lを指定 .xyzzy（優先順位：高） Lispコードを直接評価する 使い方 雑多なLispコードの評価 評価方法 M-x load-fileで.xyzzyを指定 共通設定（Alt-T-C） キーバインド（ショートカットキー） 終了 Ctrl-x,c 保存 Ctrl-x,s 開く Ctrl-x,f TABで絞込み Quit Ctrl-g undo Ctrl-\ redo Ctrl-_ コピー Ctrl-Insert ペースト Shift-Insert 全選択 M-x selection-whole-buffer または 左クリック5連打 ミニバッファ M-x(Alt-xかESC-x) フォーカスする ESC ESC LispコードをEvalできる状態になる M-x shell コマンドプロンプトがxyzzy内で起動する モード
https://w.atwiki.jp/pxy12770/pages/15.html
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; .xyzzy ;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun copy-selection-or-region-to-clipboard () (interactive) (if (get-selection-type) (copy-selection-to-clipboard) (copy-region-to-clipboard (mark) (point))) ) (defun kill-selection-or-region-to-clipboard () (interactive "*") (if (get-selection-type) (kill-selection-to-clipboard) (kill-region-to-clipboard (mark) (point))) ) (defun kill-end-of-line-to-clipboard () (interactive "*p") (selection-end-of-line) (kill-selection-to-clipboard) ) (defun kill-line-to-clipboard () (interactive "*p") (kill-line) (yank-to-clipboard) ) (require "isearch") (global-set-key #\F5 goto-line) (global-set-key #\F6 grep-dialog) (global-set-key #\M-% replace-dialog) (global-set-key #\C-_ undo) (global-set-key #\C-\\ redo) ;(define-key ctl-x-map #\F5 undo) ;(global-set-key (#\C-x #\F5) undo) (global-set-key #\C-z undo) (global-set-key #\End end-of-line) (global-set-key #\Home beginning-of-line) (global-set-key #\S-End selection-end-of-line) (global-set-key #\S-Home selection-beginning-of-line) (global-set-key #\C-k kill-end-of-line-to-clipboard) (global-set-key #\C-y paste-from-clipboard) (global-set-key #\C-w kill-selection-or-region-to-clipboard) (global-set-key #\M-w copy-selection-or-region-to-clipboard) (global-set-key #\C-q copy-selection-or-region-to-clipboard) (global-set-key #\C-Home beginning-of-buffer) (global-set-key #\C-End end-of-buffer) (global-set-key #\C-l indent-region) (global-set-key #\C-s save-buffer) (global-set-key #\C-Right isearch-forward) (define-key *isearch-map* #\C-Right isearch-repeat-forward) (global-set-key #\C-Left isearch-backward) (define-key *isearch-map* #\C-Left isearch-repeat-backward) (global-set-key #\C- beginning-of-buffer) (global-set-key #\C- end-of-buffer) (setf (svref *kbd-translate-table* (char-code #\C-i)) #\C-F13) (global-set-key #\C-F13 isearch-forward) (define-key *isearch-map* #\C-F13 isearch-repeat-forward) (global-set-key #\C-. editor dabbrev-popup) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ruby ;;;;;;;;;;;;;;;;;;;;;; ;(load-library "Gates");Gates が好きならファイルの先頭に (load-library "ruby-mode") (push ("\\.rb$" . ruby-mode) *auto-mode-alist*) ; インデント量を変える。nilの時はタブを挿入 ;(setq *ruby-indent-column* 2) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; rubyの昔の設定 ;;;;;;;;;;;;;;;;;;;;;; ;(load-library "ruby") ;(push ("\\.rb$" . ruby-mode) *auto-mode-alist*) ;; インデント量を変える ;;(setq *ruby-indent-column* 3) ;(load-library "ruby-lister") ;; rtags.rbまでのパス ;(setq *ruby-lister-rtags-path* "C /ruby/rtags.rb") ;(load-library "ruby-debug");debugモードを使うなら ;(load-library "ruby-doc");rdモードを使うなら ;(load-library "ruby-misc");その他を使うなら ;; ri.rbまでのパス ;(setq *ruby-information-command* "C /cygwin/usr/local/bin/ri.rb") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;; 括弧を強調表示するのだ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;(require "paren") ;(turn-on-global-paren) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;; バイナリエディタにするのだ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; M-x hexl-find-file ;; または、ファイルを読みこんだ後で ;; M-x hexl-mode ;; とする ;; ;; 編集方法は ローカルのキー割り当てを見てください ;; ;; hexl.exe のあるディレクトリ（PATH が通っていれば要らない） (setq hexl-exec-directory "c /Progra~1/xyzzy/site-lisp/") ;; ロード ;(load-library "hexl") ;; オートロードにしたい場合 (autoload hexl-mode "hexl" t nil) (autoload hexl-find-file "hexl" t nil) ;; お好みで ;(define-key *global-keymap* (#\C-c #\C-h) hexl-find-file) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; c-mode cc-mode ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq c++-indent-level 4) (setq c-indent-lebel 4) ;************* html mode (export ed html+-mode "ed") (autoload html+-mode "html+-mode" t) (pushnew ("\\.s?html?$" . html+-mode) *auto-mode-alist* test equal) (push ("\\.rhtml$" . html+-mode) *auto-mode-alist*) (change-default-fileio-encoding *encoding-utf8n*) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; gtags の設定 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (export ed gtags-mode "ed") (autoload ed gtags-mode "gtags/gtags" t) (require "gtags/gtags-menu") ;;; Emacs Lisp 移植キット (require "elisp") ;;; gtags-mode (in-package "editor") (setq *gtags-mode-hook* # (lambda () (local-set-key #\M-t gtags-find-tag) (local-set-key #\M-r gtags-find-rtag) (local-set-key #\M-s gtags-find-symbol) (local-set-key #\M-e gtags-find-tag-from-here) ;(local-set-key #\M-a gtags-pop-stack) (local-set-key #\C-t gtags-pop-stack) (local-set-key #\M-j gtags-find-with-grep) (local-set-key #\M-c gtags-find-file-ext) (local-set-key #\M-n gtags-find-next-tag) (local-set-key #\M-p gtags-find-previous-tag) )) (setq *gtags-select-mode-hook* # (lambda () (local-set-key #\M-a gtags-pop-stack) (local-set-key #\PageUp previous-page-kept-selection) (local-set-key #\PageDown next-page-kept-selection) (local-set-key #\LBtnDown gtags-mouse-left-press) (local-set-key #\M-n # (lambda () (interactive) (next-virtual-line) (gtags-select-tag))) (local-set-key #\M-p # (lambda () (interactive) (previous-virtual-line) (gtags-select-tag))) )) (add-hook *c-mode-hook* # (lambda () (gtags-mode 1) ;(gtags-make-complete-list);未対応 )) (add-hook *c++-mode-hook* # (lambda () (gtags-mode 1))) (add-hook *php-mode-hook* # (lambda () (gtags-mode 1))) (in-package "user") ;; メニューいらんよなの切り替えスイッチ ; by Tetsuya Kamei [xyzzy 02412] (let ((menu *app-menu*)) (defun menu () (interactive) (set-menu (setq menu (unless menu *app-menu*))))) (set-menu *app-menu*) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; grep結果をダブルクリックでファイルopen ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun grep-mouse-left-press () "grep結果をダブルクリックでファイルopen" (interactive) (let ((click (mod *last-mouse-click-count* 6))) (if (= click 2) (first-error) (mouse-left-press)))) (defvar *grep-map* nil) (unless *grep-map* (setq *grep-map* (make-sparse-keymap)) (define-key *grep-map* #\LBtnDown grep-mouse-left-press)) (add-hook ed *grep-hook* # (lambda () (use-keymap *grep-map*))) (add-hook ed *grepd-hook* # (lambda () (use-keymap *grep-map*))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; shell3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq *eshell* "bash -i") (require "shell3")
https://w.atwiki.jp/bovecrach/pages/46.html
Xyzzy コンテンツ一覧 Xyzzy Links有名どころ 自分のサイト 使ってるLisp(気が向いたら追加) コンテンツ一覧 etc.目次 参考にするリンク ビルドしたいなーWindowsでビルド でも、Linuxでビルドしたいなー 移植したいなー手放したくないものは三大美徳？ emacs.l をどんどん拡張しちゃえばいいよね？ 当面の目標 関連リンク Lisp Scrap Note目次 ファイル操作・時間更新指定ファイルの最終更新日を現在の日時に更新する 指定ディレクトリの最終更新日を現在の日時に更新する バッファ操作選択系セット Lispで範囲をuniq 指定したバッファが表示中の窓に今のバッファを表示する My Library目次 generic-comment-toggle概要 特徴 indent-to-token+概要 特徴 ライセンスNYSL Version 0.9982 NYSL Version 0.9982 (en) (Unofficial) Xyzzy Links 有名どころ FrontPage - XyzzyWiki http //xyzzy.s53.xrea.com/wiki/ drry+@- Optimized xyzzy 0.2.2.234 http //blog.drry.jp/2005/05/25/2325 自分のサイト xyzzy’s Lisps http //park.geocities.jp/bovecrach/ xyzzy Lisp公開場所＆Androidの呟き - Yahoo!ブログ http //blogs.yahoo.co.jp/bovecrach 使ってるLisp(気が向いたら追加) silog - script/complete+ http //white.s151.xrea.com/wiki/index.php?script%2Fcomplete%2B silog - script/ac-mode http //white.s151.xrea.com/wiki/index.php?script%2Fac-mode silog - script/snippet http //white.s151.xrea.com/wiki/index.php?script%2Fsnippet silog - script/virtual-file-archive http //white.s151.xrea.com/wiki/index.php?script%2Fvirtual-file-archive xyzzy my-dired http //www.geocities.jp/m_y_m_m_y/xyzzy/#my-dired
https://w.atwiki.jp/mediachamp/pages/92.html
xyzzy GNU emacs editor likeなeditorにmintのようなファイラーがついているソフト テキストエディタ ファイラ、commandlineのフロントエンド、いくつかゲームが付属する。common lispの仕様に6割準拠したインタープリタがついており、マクロはcommon lispで記述する。 ネットインストーラを利用して、Webブラウザ、2chブラウザ、メーラー,RSSリーダ、などの大掛かりなマクロから、地味ながら便利なマクロが簡単にインストールできる。 hyper estraierを利用した全文検索のフロントエンドにするための拡張も用意されている。 xyzzy.exeと同じフォルダ、もしくはbatファイルなどでPATHを通したフォルダに、総合アーカイバプロジェクトのdllが含まれていれば、それを利用した圧縮・解凍が行える。 公式サイト 参考 USB導入方法 http //hie.s64.xrea.com/xyzzy/qanda/html/apart/qanda-00161.html http //xyzzy.s53.xrea.com/wiki/index.php?QandA%20%A4%CB%A5%C4%A5%C3%A5%B3%A5%DF%A4%F2%C6%FE%A4%EC%A4%EB%2F3
https://w.atwiki.jp/mad-scientist/pages/13.html
xyzzyの使い方メモになります。 バイナリファイルに書き込み with-open-fileのオプションで encoding binaryを指定します。 バイナリデータへの変換はcode-charを使用します。 例） H 00～H FFのデータを書き出してみる。 (with-open-file (out "test.bin" direction output if-exist supersede encoding binary) (dotimes (n 256) (write-char (code-char n) out))) バイナリファイルの読み出し 例） 上の「バイナリファイルに書き込み」で作成したファイルを 読み出して表示してみる。 (with-open-file (in "test.bin" encoding binary) (let ((ch)) (while (setf ch (read-char in nil)) (print (char-code ch))))) ハッシュテーブルの中身を全部表示する maphash関数を使用します。 例） エンコード種類のハッシュテーブルの中身を表示してみる。 (let ((alist nil)) (maphash # (lambda (x y) (print (cons x y))) *mime-charset-name-hash-table*) alist)
https://w.atwiki.jp/usbportable/pages/83.html
xyzzy GNU emacs editor likeなeditorにmintのようなファイラーがついているソフト テキストエディタ ファイラ、commandlineのフロントエンド、いくつかゲームが付属する。common lispの仕様に6割準拠したインタープリタがついており、マクロはcommon lispで記述する。 ネットインストーラを利用して、Webブラウザ、2chブラウザ、メーラー,RSSリーダ、などの大掛かりなマクロから、地味ながら便利なマクロが簡単にインストールできる。 hyper estraierを利用した全文検索のフロントエンドにするための拡張も用意されている。 xyzzy.exeと同じフォルダ、もしくはbatファイルなどでPATHを通したフォルダに、総合アーカイバプロジェクトのdllが含まれていれば、それを利用した圧縮・解凍が行える。 htmlプラグインエラー このプラグインを使うにはこのページの編集権限を「管理者のみ」に設定してください。 USB導入方法 http //hie.s64.xrea.com/xyzzy/qanda/html/apart/qanda-00161.html http //xyzzy.s53.xrea.com/wiki/index.php?QandA%20%A4%CB%A5%C4%A5%C3%A5%B3%A5%DF%A4%F2%C6%FE%A4%EC%A4%EB%2F3